home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / turbobasedemo / steuerung < prev    next >
AmigaDOS Script File  |  1992-09-17  |  2KB  |  88 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. set binfo        1
  19. set bcopy        1
  20. set bstart       1
  21.  
  22.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  23.     set nummer 0
  24.     if $binfo EQ 1
  25.          echo >>t:tmpsteuerung " Info" NOLINE
  26.          set nummer `eval $nummer + 1`
  27.          set ninfo $nummer
  28.     endif
  29.     if $bcopy EQ 1
  30.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  31.          set nummer `eval $nummer + 1`
  32.          set ncopy $nummer
  33.     endif
  34.     if $bstart EQ 1
  35.          echo >>t:tmpsteuerung " Start" NOLINE
  36.          set nummer `eval $nummer + 1`
  37.          set nstart $nummer
  38.     endif
  39.     if "[param]" EQ ""
  40.         echo >>t:tmpsteuerung " Ende" NOLINE
  41.         execute >nil: t:tmpsteuerung
  42.         delete >nil: t:tmpsteuerung
  43.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  44.         if $reqerg[$$] EQ 0
  45.             skip Ende
  46.         endif
  47.     endif
  48.     if $reqerg[$$] EQ $ninfo
  49.         set vinfo 1
  50.     endif
  51.     if $reqerg[$$] EQ $ncopy
  52.         set vcopy 1
  53.     endif
  54.     if $reqerg[$$] EQ $nstart
  55.         set vassign 1
  56.         set vstart 1
  57.         set vunassign 1
  58.     endif
  59. endif
  60.  
  61. if $vinfo EQ 1
  62. ;>>>>>>>> Hier Infotext eintragen
  63.     :c/Metatool :Software/TurboBaseDemo/Lies.Mich FT=TEXT
  64. endif
  65. if $vstart EQ 1
  66. ;>>>>>>>> Hier steht das Startprogramm
  67.     cd :Software/TurboBaseDemo/
  68.     TurboBase
  69. endif
  70. if $vcopy EQ 1
  71.     execute :c/Verzeichniskopieren ":Software/TurboBaseDemo/" "TurboBaseDemo" 2056192
  72. endif
  73.  
  74. unset binfo
  75. unset vinfo
  76. unset ninfo
  77. unset bstart
  78. unset vstart
  79. unset nstart
  80. unset bcopy
  81. unset vcopy
  82. unset ncopy
  83. if "[param]" EQ ""
  84.     execute Steuerung
  85. endif
  86. LAB Ende
  87. unsetenv reqerg[$$]
  88.